home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_003_19xx_-_de_Side_A.d64 / le president (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  36KB  |  917 lines
  1. 0 poke53280,9:poke53281,9:ifpeek(182)=0thenpoke182,1:load"zeichen",8,1
  2. 1 poke53272,48:poke56576,0:poke648,204:gosub100
  3. 5 a=1023:restore:af=52264
  4. 6 readc
  5. 7 ifc=-1thenreturn
  6. 9 fory=1to4:poke(a+y),c:nexty:a=a+4
  7. 10 goto6
  8. 12 data1,1,1,0,100,100,0,0,1,0,0,1,1,2,10,20,100,0,50,1,0,0,0,0,1,1,2,5,5,25,0
  9. 13 data 0,100,100,0,0,20,-1
  10. 19 fori=1tozz
  11. 20 a(i)=2800:sg(i)=2000:po(i)=250:ew(i)=50000:ja=2010:eg(i)=26000
  12. 21 eb(i)=24000:g(i)=35000:up(i)=1200:lb(i)=20000:pi(i)=450:lh(i)=600
  13. 46 gv(i)=25000:gb(i)=24738:bl(i)=1535:gl(i)=2465:la(i)=50000:gk(i)=25000
  14. 47 ev(i)=2000:ga(i)=0:al(i)=0:ac(i)=500:next
  15. 50 forx=1to10:poke(1379+x),2:next:return
  16. 100 print"[144][147][215]ieviel [211]pieler (1-4) ";:inputzz
  17. 122 if zz<1 orzz>4 then 100
  18. 123 print"[147]":fori=1tozz
  19. 124 print"[206]ame von [211]pieler";i;spc(61):inputn$(i)
  20. 125 a=len(n$(i)):ifa>12thenprint"[145][145][145][145][145][145]":goto124
  21. 127 next:gosub5:gosub19:gosub20950:gosub50000:gosub50100:goto20000
  22. 500 gosub19000:sp=52865:jmp=1:a=7:b=240:pokesp,62:g(i)=(int(g(i)))
  23. 510 printspc(11)"[199]eld           :";g(i)"[200][198]":printspc(11)"[197]inwohner      :";ew(i)
  24. 540 printspc(11)"[193]usl^nder      :";al(i):printspc(11)"[204]andbesitz     :";lb(i)"[209][200][198]"
  25. 546 printspc(11)"bebautes [204]and  :";bl(i)"[209][200][198]":printspc(11)"[194]auland        :";gl(i)"[209][200][198]"
  26. 549 printspc(11)"[214]olksstimmung  :";peek(1039+i)"%"
  27. 550 printspc(11)"[213]mweltzustand  :";peek(1043+i)"%"
  28. 551 printspc(11)"[211][193][199]-[211]t^rke     :";peek(1151+i)"%"
  29. 560 print"[197]nergie":print"[202]ustiz":print"[212]ourismus":print"[205]ilit^r":print"[201]ndustrie"
  30. 610 print"[204]andwirtschaft":print"[193]uswertung"
  31. 660 gosub 20100:ifjmp=7then50500
  32. 670 on jmp gosub 999,1499,1999,2498,2999,3499:goto500
  33. 999 sp=52785:jmp=1
  34. 1000 gosub19000:printspc(10)"[199]eld             :";g(i)"[200][198]"
  35. 1002 a=10:pokesp,62:b=360:printspc(10)"[203]ernkraftwerke   :";peek(1023+i)
  36. 1003 printspc(10)"[215]indr^der        :";peek(1027+i)
  37. 1004 printspc(10)"[211]taud^mme        :";peek(1031+i)
  38. 1005 printspc(10)"[197]nergievorrat    :";ev(i)"[203][200][198]"
  39. 1006 printspc(10)"[197]nergieproduktion:";eg(i)"[203][200][198]"
  40. 1007 printspc(10)"[197]nergie ben\tigt :";eb(i)"[203][200][198]"
  41. 1008 printspc(10)"[194]auland          :";gl(i)"[209][200][198]"
  42. 1010 print"[203]ernkraftwerk kaufen    - 3000 [200][198]":print"[203]ernkraftwerk verkaufen"
  43. 1020 print"[215]indrad kaufen          - 2500 [200][198]":print"[215]indrad verkaufen"
  44. 1030 print"[211]taudamm kaufen         - 1500 [200][198]":print"[211]taudamm verkaufen"
  45. 1080 print"[211]trom anbieten":print"[211]trom kaufen":print"[211]trompreise":print"[200]auptmen[184]"
  46. 1110 gosub 20100:ifjmp=10thenreturn
  47. 1120 onjmpgosub 19059,19088,19069,19098,19079,19108,19116,19127,19172:goto1000
  48. 1499 jmp=1:sp=52825
  49. 1500 gosub19000
  50. 1501 printspc(14)"[199]eld         :";g(i)"[200][198]":printspc(14)"[211]teuern      :";peek(1083+i)"%"
  51. 1513 a=5:pokesp,62:b=160:printspc(14)"[199]ef^ngnisse  :";peek(1067+i)
  52. 1514 printspc(14)"[199]esetzesh^rte:";peek(1075+i)
  53. 1515 printspc(14)"[194]auland      :";gl(i)"[209][200][198]"
  54. 1519 print"[199]ef^ngniss kaufen - 1500 [200][198]":print"[211]teuern ^ndern"
  55. 1522 print"[199]esetzesh^rte":print"[208]olizei":print"[200]auptmen[184]"
  56. 1600 gosub20100:ifjmp=5thenreturn
  57. 1619 ifjmp=4then19299
  58. 1620 onjmpgosub19280,19260,19290:goto1500
  59. 1999 jmp=1:sp=52785
  60. 2000 gosub19000:printspc(11)"[199]eld              :";g(i)"[200][198]":pokesp,62:a=8:b=280
  61. 2010 printspc(11)"[200]otels            :";peek(1071+i)
  62. 2012 printspc(11)"[198]reizeitparks     :";peek(1099+i)
  63. 2013 printspc(11)"[194]ungalowsiedlungen:";peek(1055+i)
  64. 2016 printspc(11)"[218]oll";spc(12)"  :";peek(1079+i)"%"
  65. 2017 printspc(11)"[194]auland           :";gl(i)"[209][200][198]"
  66. 2030 print"[200]otel kaufen";spc(12)"- 1000 [200][198]":print"[200]otel verkaufen"
  67. 2050 print"[198]reizeitpark kaufen     - 1250 [200][198]":print"[198]reizeitpark verkaufen"
  68. 2060 print"[194]ungalowsiedlung kaufen - 2500 [200][198]":print"[194]ungalowsiedlung verkaufen"
  69. 2061 print"[218]oll":print"[200]auptmen[184]"
  70. 2080 gosub20100:ifjmp=8thenreturn
  71. 2100 onjmpgosub 19510,19515,19520,19525,19530,19535,19270:goto2000
  72. 2498 ifja<2012then20060
  73. 2499 jmp=1:sp=52825
  74. 2500 gosub19000
  75. 2502 if peek(1399+i)>100 then poke(1399+i),100
  76. 2503 printspc(14)"[199]eld       :";g(i)"[200][198]":bb=0
  77. 2505 pokesp,62:a=7:b=240:printspc(14)"[198]lugzeuge  :";peek(1309+i)
  78. 2506 printspc(14)"[208]anzer     :";peek(1299+i):printspc(14)"[201]nfanterie :";peek(1319+i)
  79. 2508 printspc(14)"[203]asernen   :";peek(1379+i):printspc(14)"[193]usbildung :";peek(1399+i)"%"
  80. 2510 printspc(14)"[194]auland    :";gl(i)"[209][200][198]"
  81. 2520 print"[198]lugzeug kaufen - 800 [200][198]"
  82. 2530 print"[208]anzer kaufen   - 500 [200][198]":print"[201]nfanterie      - 300 [200][198]"
  83. 2555 print"[203]aserne kaufen  - 500 [200][198]":print"[201]nformationen"
  84. 2558 print"[203]rieg":print"[200]auptmen[184]"
  85. 2570 gosub 20100:ifjmp=7thenreturn
  86. 2571 ifjmp=6then19650
  87. 2573 y=jmp
  88. 2590 onjmp gosub19600,19600,19600,42500,37000:ifjm=11then2499
  89. 2593 goto2500
  90. 2999 sp=52825:jmp=1
  91. 3000 gosub19000:printspc(12)"[199]eld           :";g(i)"[200][198]"
  92. 3020 pokesp,62:a=7:b=240:printspc(12)"[199]rosse [198]abriken:";peek(1119+i)
  93. 3024 printspc(12)"[203]leine [198]abriken:";peek(1123+i)
  94. 3025 printspc(12)"[208]roduktion     :";pi(i)"[201][200][198]"
  95. 3026 printspc(12)"[204]agerh^user    :";peek(1127+i)
  96. 3027 printspc(12)"[204]agerkapazit^t :";lh(i)"[201][200][198]"
  97. 3028 printspc(12)"[194]auland        :";gl(i)"[209][200][198]"
  98. 3060 print"[198]abrik kaufen        - 3000 [200][198]":print"[198]abrik verkaufen"
  99. 3070 print"[203]l. [198]abrik kaufen    - 1500 [200][198]":print"[203]l. [198]abrik verkaufen"
  100. 3100 print"[204]agerhaus kaufen     - 1200 [200][198]":print"[204]agerhaus verkaufen"
  101. 3120 print"[200]auptmen[184]"
  102. 3210 gosub 20100:ifjmp=7thenreturn
  103. 3230 on jmp gosub 14999,15018,15009,15028,15039,15048:goto3000
  104. 3499 jmp=1:sp=52825
  105. 3500 gosub19000:printspc(9)"[199]eld";spc(13)":";g(i)"[200][198]"
  106. 3540 pokesp,62:a=9:b=320:printspc(9)"[199]etreidem[184]hlen   :";peek(1139+i)
  107. 3541 printspc(9)"[205][184]hlenkapazit^t  :";gk(i)"[199][200][198]"
  108. 3550 printspc(9)"[204]agerh^user      :";peek(1135+i)
  109. 3551 ifla(i)<1thenla(i)=0
  110. 3552 printspc(9)"[204]agerkapazit^t   :";la(i)"[199][200][198]"
  111. 3553 printspc(9)"[193]ckerland        :";ac(i)"[209][200][198]"
  112. 3554 printspc(9)"geeignetes [204]and  :";gl(i)"[209][200][198]"
  113. 3560 printspc(9)"[199]etreidevorrat   :";gv(i)"[199][200][198]"
  114. 3570 printspc(9)"[199]etreide ben\tigt:";gb(i)"[199][200][198]"
  115. 3571 printspc(9)"[211]aatgut ben\tigt :";sg(i)"[199][200][198]"
  116. 3600 print"[199]etreidefelder anlegen":print"[204]agerhaus kaufen         - 500
  117. 3630 [153]"(NULL)agerhaus verkaufen":[153]"chr$etreidemfrehle kaufen     - 1100 left$asc"
  118. 3650 [153]"chr$etreidemfrehle verkaufen":[153]"chr$etreide anbieten":[153]"chr$etreide kaufen"
  119. 3671 [153]"(NULL)reise anschauen":[153]"left$auptmenfre"
  120. 3700 [141] 20100:[139]jmp[178]9[167][142]
  121. 3720 [145] jmp [141] 15500,15601,15608,15620,15627,15690,15750,15850:[137]3500
  122. 14999 a[178]1119:d[178]0:e[178]300:f[178]0:g[178]800:h[178][171]3000:j[178]100:z[178]120:q[178]0:[137]20350
  123. 15009 a[178]1123:d[178]0:e[178]150:f[178]0:g[178]500:h[178][171]1500:z[178]80:j[178]70:q[178]0:[137]20350
  124. 15018 a[178]1119:d[178]80:e[178][171]300:f[178]0:g[178][171]800:h[178]3000:z[178][171]120:j[178]0:q[178]100:[137]20350
  125. 15028 a[178]1123:d[178]60:e[178][171]150:f[178]0:z[178][171]80:g[178][171]400:h[178]1500:j[178]0:q[178]70:[137]20350
  126. 15039 a[178]1127:d[178]0:e[178]0:f[178]300:g[178]20:h[178][171]1200:j[178]80:z[178]80:q[178]0:[137]20350
  127. 15048 a[178]1127:d[178]20:e[178]0:f[178][171]300:g[178][171]20:z[178][171]80:h[178]1200:j[178]0:q[178]80:[137]20350
  128. 15500 [141]19000:[153]"(NULL)ie haben";lb(i);"(NULL)left$asc (NULL)and,von denen"
  129. 15515 [153]"";ac(i);"(NULL)left$asc bepflanzt und";gl(i);"(NULL)left$asc":[153]"geeignet sind."
  130. 15530 a[178]0:[153]"(NULL)ieviel (NULL)left$asc wollen sie neu":[153]"bepflanzen ";:[133]a
  131. 15535 [139]a[177]gl(i)[176]a[179]0[167] [153]"ononononon":[137] 15530
  132. 15540 a[178]([181](a)):b[178]a[172]40:g(i)[178]g(i)[171]b:ac(i)[178]ac(i)[170]a:gl(i)[178]gl(i)[171]a
  133. 15544 sg(i)[178](a[172]4)[170]sg(i):[139][194](1043[170]i)[177]100[167][151](1043[170]i),100
  134. 15550 [153]"str$as herstellen von landwirtschaft-"
  135. 15555 [153]"lich gut nutzbarem atncker kostet":[153]"sie";b"left$asc.":[137]20800
  136. 15601 a[178]500:b[178]1135:c[178]1:d[178]10000:x[178]60:e[178]0:z[178]25:g[178]0:z[178]20:q[178]0:ty[178]20:[137]20400
  137. 15608 [139][194](1135[170]i)[179]0[167]20060
  138. 15611 a[178][171]500:x[178][171]60:b[178]1135:c[178][171]1:d[178][171]10000:e[178]0:y[178]0:g[178]10:z[178]0:q[178]20:ty[178][171]20:[137]20400
  139. 15620 a[178]1100:b[178]1139:c[178]1:d[178]0:e[178]1000:g[178]0:x[178]90:y[178]50:z[178]120:q[178]0:[137]20400
  140. 15627 [139][194](1139[170]i)[179]0[167]20060
  141. 15630 a[178][171]1100:y[178]0:b[178]1139:c[178][171]1:d[178]0:e[178][171]1000:x[178][171]90:g[178]20:z[178][171]120:q[178]10:[137]20400
  142. 15690 [139]zz[179][177]1[167] 15694
  143. 15691 [141]19117:[142]
  144. 15694 [141]19000
  145. 15695 a[178]0:[153]"(NULL)ieviel chr$left$asc wollen (NULL)ie":[153]"anbieten ";:[133]a
  146. 15697 a[178]([181](a)):[139]a[177]gv(i)[176]a[179]0[167] [153]"onononononon":[137]15695
  147. 15702 ga(i)[178]ga(i)[170]a:gv(i)[178]gv(i)[171]a:b[178]0:[153]"(NULL)reis pro 100 chr$left$asc ";:[133]b
  148. 15703 [139]b[177]255[176]b[179]0[167][153]"onononon":[137]15702
  149. 15705 [151](1143[170]i),b:[142]
  150. 15750 [141]19000
  151. 15751 [153]"peekei (NULL)pieler (a) oder bei (NULL)tore (b)"
  152. 15756 [153]"oder zurfreck ins (NULL)enfre (m) ?"
  153. 15757 [161] a$:[139]a$[178]""[167]15757
  154. 15758 [139]a$[178]"a"[175]zz[178]1[167] [153]"onononononon":[137]15751
  155. 15759 [139] a$[178]"a"[167]15770
  156. 15761 [139] a$[178]"b"[167]15800
  157. 15763 [139] a$[178]"m"[167] [142]
  158. 15765 [153]"onononononon":[137] 15751
  159. 15770 [153]"peekei welchem (NULL)pieler ";:[133]a
  160. 15771 [139]a[178]0[167]15750
  161. 15772 [139]a[178]i[176]a[177]zz[176]a[179]1[167][153]"onononon":[137]15770
  162. 15773 [139]ga(a)[178]0[167][141]51300:[137]15770
  163. 15776 [153]"(NULL)pieler";a;"bietet";ga(a);"chr$left$asc an.(NULL)ein"
  164. 15778 [153]"(NULL)reis ist";[194](1143[170]a);"left$asc pro 100 chr$left$asc."
  165. 15780 [153]"(NULL)ieviel chr$left$asc wollen sie erwerben";[166]49):[133]b
  166. 15783 b[178]([181](b)):[139]b[179]0[176]b[177]ga(a)[167][153]"onononononononononon":[137]15776
  167. 15784 b[178]([181](b)):gv(a)[178]gv(a)[171]b:gv(i)[178]gv(i)[170]b:ga(a)[178]ga(a)[171]b
  168. 15785 b[178](b[173]100)[172][194](1143[170]a):g(a)[178]g(a)[170]b:g(i)[178]g(i)[171]b:[139]ga(a)[178]0[167][151](1143[170]a),0
  169. 15786 [142]
  170. 15800 [141]19000
  171. 15801 [153]"str$er (NULL)reis der (NULL)tore liegt bei 40 left$asc"
  172. 15810 [153]"pro 100 chr$left$asc.(NULL)ieviel chr$left$asc wollen sie"
  173. 15813 [153]"erwerben ";:[133]a
  174. 15814 [139]a[179]0[167][153]"onononononononon":[137]15801
  175. 15817 a[178]([181](a)):gv(i)[178]gv(i)[170]a:c[178](a[173]100)[172]40:c[178]([181](c)):g(i)[178]g(i)[171]c:[142]
  176. 15850 [139] zz[177]1[167] 15855
  177. 15851 [141]19117:[142]
  178. 15855 [141]19000:y[178]zz:[129]x[178]1[164]y:[153]"chr$etreideangebot ";n$(x);" =";ga(x)"chr$left$asc"
  179. 15861 yy[178][195](n$(x)):[153]"chr$etreidepreis";[166]yy[170]4)"=";[194](1143[170]x)"left$asc"
  180. 15865 [130]:[137]20800
  181. 19000 [153]"loadmid$ahr:";ja"(NULL)r^sident ";n$(i)
  182. 19010 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[142]
  183. 19059 a[178][171]3000:b[178]300:c[178]10000:d[178]120:f[178]1023:g[178][171]1:h[178]1:j[178]0:l[178]70:q[178]0:[137]20249
  184. 19069 a[178][171]2500:d[178]10:b[178]50:c[178]5000:h[178]1:f[178]1027:g[178]2:j[178]0:l[178]5:q[178]0:[137] 20249
  185. 19079 a[178][171]1500:d[178]40:b[178]100:c[178]11000:h[178][170]1:f[178]1031:g[178][171]3:j[178]0:l[178]200:q[178]0:[137] 20249
  186. 19088 [139] [194](1023[170]i)[178]0 [167] 20060
  187. 19089 a[178]3000:d[178][171]120:b[178][171]300:c[178][171]10000:f[178]1023:g[178][171]1:h[178][171]1:j[178]80:l[178]0:q[178]70:[137]20249
  188. 19098 [139] [194](1027[170]i)[178]0 [167] 20060
  189. 19099 a[178]2500:d[178][171]10:b[178][171]50:c[178][171]5000:f[178]1027:g[178][171]4:h[178][171]1:j[178]20:l[178]0:q[178]5:[137]20249
  190. 19108 [139] [194](1031[170]i)[178]0 [167] 20060
  191. 19110 a[178]1500:d[178][171]40:b[178][171]100:l[178]0:c[178][171]11000:f[178]1031:g[178][171]1:h[178][171]1:j[178]40:q[178]200:[137]20249
  192. 19116 [139]zz[177]1[167]19118
  193. 19117 [153]"onononon";[166]23)"(NULL)ozu ?wait":[137]20800
  194. 19118 [141]19000
  195. 19119 a[178]0:[153]"(NULL)ieviel (NULL)left$asc wollen (NULL)ie":[153]"anbieten ";:[133]a
  196. 19122 a[178]([181](a)):[139]a[177]ev(i)[176]a[179]0[167][153]"ononononononon":[137]19119
  197. 19124 svm(i)[178]svm(i)[170]a:ev(i)[178]ev(i)[171]a:[153]"(NULL)reis pro (NULL)left$asc ";:[133]b
  198. 19125 [139]b[177]255[176]b[179]0[167] [153]"onononon":[137] 19124
  199. 19126 [151](1051[170]i),b:[142]
  200. 19127 [141]19000
  201. 19128 [153]"peekei (NULL)pieler (a) oder (NULL)tore (b)"
  202. 19129 [153]"oder zurfreck ins (NULL)enfre (m) ?"
  203. 19130 [161]a$:[139] a$[178]""[167]19130
  204. 19131 [139]a$[178]"a"[175]zz[178]1[167][153]"onononononon":[137]19128
  205. 19132 [139] a$[178]"a"[167]19136
  206. 19133 [139] a$[178]"b"[167]19150
  207. 19134 [139] a$[178]"m"[167][142]
  208. 19135 [153]"onononononon":[137]19128
  209. 19136 [153]"peekei welchem (NULL)pieler ";:[133] a
  210. 19137 [139]a[178]0[167]19127
  211. 19138 [139]a[178]i[176]a[177]zz[167] [153]"onononon":[137]19136
  212. 19139 [139]svm(a)[178]0[167][141]51300:[137]19136
  213. 19140 [153]"(NULL)pieler";a;"bietet";svm(a);"(NULL)left$asc (NULL)trom zum"
  214. 19141 [153]"(NULL)reis von";[194](1051[170]a);"left$asc pro (NULL)left$asc an."
  215. 19142 b[178]0:[153]"(NULL)ieviel (NULL)left$asc wollen sie erwerben";[166]49):[133] b
  216. 19144 b[178]([181](b)):[139]b[177]svm(a)[176]b[179]0[167][153]"ononononononon":[137] 19142
  217. 19146 c[178]b[172][194](1051[170]a):svm(a)[178]svm(a)[171]b:ev(i)[178]ev(i)[170]b:g(i)[178]g(i)[171]c:g(a)[178]g(a)[170]c:[142]
  218. 19150 [153]"str$er (NULL)trompreis der (NULL)tore betr^gt"
  219. 19151 [153]"3 left$asc pro (NULL)left$asc.(NULL)ieviel (NULL)left$asc m\chten":[153]"sie erwerben ";:[133]a
  220. 19152 [139]a[179]0[167][153]"onononononononon":[137]19150
  221. 19154 b[178]a[172]3:g(i)[178]g(i)[171]b:ev(i)[178]ev(i)[170]a:[142]
  222. 19172 [139]zz[179][177]1[167] 19175
  223. 19173 [141]19117:[142]
  224. 19175 [141]19000:y[178]zz:[129]x[178]1[164]y:[153]"(NULL)tromangebot ";n$(x);"=";svm(x)"(NULL)left$asc"
  225. 19178 yy[178][195](n$(x)):[153]"(NULL)trompreis";[166]yy[170]3)"=";[194](1051[170]x)"left$asc":[130]:[137]20800
  226. 19260 [141]19000
  227. 19261 y[178][194](1083[170]i):[153]"(NULL)teuersatz festlegen ((NULL)rozent) ";:[133]y
  228. 19262 [139]y[177]100[176]y[179]0[176]y[177][194](1167[170]i)[170]1[167][153]"onononon":[137]19261
  229. 19263 x[178]([194](1083[170]i)[171]y)[172]10:[139][194](1039[170]i)[170]x[177]100[167][151](1039[170]i),100:[137]19268
  230. 19266 [139][194](1039[170]i)[170]x[179]1[167][151](1039[170]i),0:[137]19268
  231. 19267 [151](1039[170]i),[194](1039[170]i)[170]x
  232. 19268 [151](1083[170]i),y:[142]
  233. 19270 [141]19000
  234. 19271 y[178][194](1079[170]i):[153]"(NULL)oll festlegen ((NULL)rozent) ";:[133]y
  235. 19272 [139]y[177]100[176]y[179]0[167] [153]"onononon":[137]19271
  236. 19279 [151](1079[170]i),y:[142]
  237. 19280 [139]gl(i)[171]30[179]0[167]20060
  238. 19285 [141]20050:g(i)[178]g(i)[171]1500:a(i)[178]a(i)[170]65:[151](1067[170]i),[194](1067[170]i)[170]1
  239. 19286 gl(i)[178]gl(i)[171]30:bl(i)[178]bl(i)[170]30:eb(i)[178]eb(i)[170]30:[142]
  240. 19290 yy[178][194](1075[170]i):[153]"(NULL)euer left$^rtgrad (1-4) ";:[133]yy
  241. 19291 [139]yy[177]4[176]yy[179]1[167] [153]"onononon":[137]19290
  242. 19292 x[178][194](1075[170]i)[171]yy:[151](1075[170]i),yy:[139][194](1039[170]i)[170]x[177]100[167][151](1039[170]i),100:[142]
  243. 19295 [139][194](1039[170]i)[170]x[179]1[167][151](1039[170]i),0:[142]
  244. 19296 [151](1039[170]i),[194](1039[170]i)[170]x:[142]
  245. 19299 sp[178]52825:jmp[178]1
  246. 19300 [141]19000:[153][166]12)"chr$eld           :";g(i)"left$asc"
  247. 19305 [151]sp,62:a[178]6:b[178]200:[153][166]12)"(NULL)olizisten     :";po(i)
  248. 19307 [153][166]12)"atnusbildung     :";[194](1087[170]i)"%"
  249. 19308 [153][166]12)"atnusr*stung     :";[194](1155[170]i)"%"
  250. 19309 [153][166]12)"(NULL)onderkommandos:";[194](1091[170]i)
  251. 19315 [153]"(NULL)onderkommando - 200 left$asc":[153]"(NULL)olizisten einstellen"
  252. 19316 [153]"(NULL)olizisten entlassen"
  253. 19319 [153]"(NULL)abotage":[153]"right$nformationen":[153]"(NULL)enfre"
  254. 19325 [141]20100:[139]jmp[178]6[167]1499
  255. 19326 [139]jmp[178]4[167]42000
  256. 19328 [145]jmp[141]19420,19360,50700,0,37000:[139]jm[178]11[167]19299
  257. 19329 [137]19300
  258. 19360 a[178]0:[153]"(NULL)ieviel (NULL)olizisten einstellen ";:[133]a
  259. 19361 [139]a[179]0[167][153]"ononon":[137]19360
  260. 19362 a[178]([181](a)):a(i)[178]a(i)[170]a[172]10:po(i)[178]po(i)[170]a:[142]
  261. 19420 [141]20050
  262. 19422 g(i)[178]g(i)[171]200:a(i)[178]a(i)[170]60:[151](1091[170]i),[194](1091[170]i)[170]1:yy[178]1:[142]
  263. 19510 a[178]1000:b[178]110:c[178]400:d[178]1071:e[178]2:g[178]60:z[178]140:q[178]0:[137] 20290
  264. 19515 a[178][171]1000:b[178][171]110:c[178][171]400:d[178]1071:e[178]0:g[178]0:z[178][171]140:q[178]60:[137] 20290
  265. 19520 a[178]1250:b[178]70:c[178]0:d[178]1099:e[178]5:g[178]100:z[178]250:q[178]0:[137]20290
  266. 19525 a[178][171]1250:b[178][171]70:c[178]0:d[178]1099:e[178]0:g[178]0:z[178][171]250:q[178]100:[137]20290
  267. 19530 a[178]2500:c[178]200:b[178]20:d[178]1055:e[178]4:g[178]140:z[178]170:q[178]0:[137] 20290
  268. 19535 a[178][171]2500:c[178][171]200:b[178][171]20:d[178]1055:e[178]0:g[178]0:z[178][171]170:q[178]140:[137] 20290
  269. 19600 x[178]0:[153]"(NULL)ieviel (NULL)tfreck ";:[133]x:[139]x[179]0[167][153]"ononon":[137]19600
  270. 19601 [139]x[178]0[167][142]
  271. 19602 [145]y[137]19610,19620,19630
  272. 19610 a[178]x[172]800:c[178]x[172]40:d[178]1309:b[178]x[172]3:[137]20200
  273. 19620 a[178]x[172]500:c[178]x[172]50:d[178]1299:b[178]x[172]2:[137]20200
  274. 19630 a[178]x[172]300:c[178]x[172]195:d[178]1319:b[178]x[172]1:[137]20200
  275. 19650 [139][194](1159[170]i)[178]0[175]ja[177]2012[167]bb[178]1:[137]35000
  276. 19651 [141]20060:[137]2499
  277. 19676 [141]20800
  278. 19677 p[178]0:[153]"loadvals wird in ";:b[178][181](4[172][187](1))[170]1:[145]b[137]19690,19700,19710,19719
  279. 19690 [153]"dichten (NULL)^ldern":a[178]3:b[178]1:c[178]2:[137]19720
  280. 19700 [153]"flacher (NULL)andschaft":a[178]1:b[178]2:c[178]3:[137]19720
  281. 19710 [153]"sumpfiger (NULL)andschaft":a[178]2:b[178]1:c[178]3:[137]19720
  282. 19719 [153]"hfregeliger (NULL)andschaft":a[178]2:b[178]3:c[178]1
  283. 19720 [153]"gek^mpft."
  284. 19721 [141] 19890
  285. 19723 xx[178]0:yy[178]0:p[178]p[170]1:[141]20450
  286. 19725 [139][194](1299[170]i)[170][194](1309[170]i)[170][194](1319[170]i)[178]0[167]a[178]i:b[178]y:[137]40000
  287. 19726 [139][194](1299[170]y)[170][194](1309[170]y)[170][194](1319[170]y)[178]0[167]a[178]y:b[178]i:[137]40000
  288. 19729 [139]p[178]40[170][194](1710)[172]3[167]19851
  289. 19730 z[178]a[172][194](1299[170]i):q[178]b[172][194](1309[170]i):w[178]c[172][194](1319[170]i):a2[178]a[172][194](1299[170]y)
  290. 19731 b2[178]b[172][194](1309[170]y):c2[178]c[172][194](1319[170]y):z[178]z[170]q[170]w[170][194](1399[170]i)
  291. 19732 a2[178]a2[170]b2[170]c2[170][194](1399[170]y):m[178]z[170]a2
  292. 19735 [139]p[178]20[170][194](1710)[172]4[167]19851
  293. 19736 [137]19855
  294. 19851 [153]"valnde des (NULL)rieges !":[141]20800:[139]a2[179]z[167]a[178]y:b[178]i:[137]19900
  295. 19853 [139]z[179]a2[167]a[178]i:b[178]y:[137]19900
  296. 19854 [139]z[178]a2[167]z[178]z[170]1:[153]"onononon":[137]19851
  297. 19855 d[178][181](m[172][187](1))[170]1:e[178][181](3[172][187](1))[170]1:[139]d[179]z[167]x[178]y:[141]19865
  298. 19858 [139]d[177]z[167]x[178]i:[141]19865
  299. 19860 [137] 19723
  300. 19865 e[178][181](3[172][187](1))[170]1:[145]e[141] 19870,19875,19880:[139]yy[178]1[167]yy[178]0:[137]19865
  301. 19867 yy[178]1:[142]
  302. 19870 [139][194](1299[170]x)[179]1[167]yy[178]1:[142]
  303. 19872 [151](1299[170]x),[194](1299[170]x)[171]1:[151](1349[170]i),[194](1349[170]i)[170]1:[142]
  304. 19875 [139][194](1309[170]x)[179]1[167]yy[178]1:[142]
  305. 19876 [151](1309[170]x),[194](1309[170]x)[171]1:[151](1359[170]i),[194](1359[170]i)[170]1:[142]
  306. 19880 [139][194](1319[170]x)[179]1[167]yy[178]1:[142]
  307. 19886 [151](1319[170]x),[194](1319[170]x)[171]1:[151](1369[170]i),[194](1369[170]i)[170]1:[142]
  308. 19890 a$(1)[178]"(NULL)anzer":a$(2)[178]"asclugzeuge":a$(3)[178]"right$nfanterie":[153]"";ln$(i)
  309. 19891 [129]x[178]1[164]3:[153]"";a$(x):[130]:[153]"";ln$(y):[129]x[178]1[164]3
  310. 19892 [153]"";a$(x):[130]:[142]
  311. 19900 x[178][194](1299[170]a)[170][194](1309[170]a)[170][194](1319[170]a)[170][194](1349[170]a)[170][194](1359[170]a)[170][194](1369[170]a)[170]1
  312. 19901 [151](1349[170]a),0:[151](1349[170]b),0:[151](1359[170]a),0:[151](1359[170]b),0:[151](1369[170]a),0
  313. 19902 [151](1369[170]b),0
  314. 19905 z[178][181]((lb(a)[173]x))[170]400
  315. 19915 [153]"load";ln$(a)" verlor";
  316. 19916 [139]a[179]zz[176]a[178]zz[175]z[177]gl(a)[167]z[178]gl(a)
  317. 19920 [153]z"(NULL)left$asc (NULL)and.":lb(a)[178]lb(a)[171]z:lb(b)[178]lb(b)[170]z:gl(b)[178]gl(b)[170]z:gl(a)[178]gl(a)[171]z
  318. 19950 [141]47000:[141]20800:[139]bb[178]1[167]bb[178]0:[137]2499
  319. 19951 [142]
  320. 20000 [129]i[178]1[164]zz:[139] [194](1699[170]i)[178]1[167]b(i)[178]0:[137]20010
  321. 20005 p(i)[178]0:ag(i)[178]0:[141]500:[141]21000:[151](1159[170]i),0
  322. 20007 [141]23010:[151](1163[170]i),0:[141]43000
  323. 20009 [139]ja[178](2010[170][194](1711))[167]30000
  324. 20010 [139]g(i)[179]0[167][141]32000
  325. 20011 [139]i[178]zz[167][141]38000
  326. 20013 [130]i:ja[178]ja[170]1
  327. 20014 [129]x[178]1[164]4:[151](1167[170]x),[194](1083[170]x):[130]
  328. 20015 [139]ja[177]2011[167][141]41000
  329. 20016 x[178]0:[129]y[178]1[164]zz:x[178]x[170][194](1699[170]y):[130]:[139]x[178]zz[167]20700
  330. 20020 [137]20000
  331. 20050 si[178]54272:fl[178]si:fh[178]si[170]1:w[178]si[170]4:y[178]si[170]5:hi[178]si[170]6:p[178]si[170]24
  332. 20051 [151]p,15:[151]y,16[170]9:[151]fh,29:[151]fl,19:[151]w,17:[129]t[178]1[164]500:[130]:[151]w,0:[151]y,0:[142]
  333. 20060 si[178]54272:fl[178]si:fh[178]si[170]1:tl[178]si[170]2:th[178]si[170]3:w[178]si[170]4:a[178]si[170]5:h[178]si[170]6:l[178]si[170]24
  334. 20061 [129]x[178]15[164]0[169][171]1:[151]l,x:[151]a,15:[151]eh,0:[151]fh,40:[151]fl,55:[151]w,65:[130]:[151]w,0
  335. 20064 [151]a,0:[142]
  336. 20100 [161] a$:[139] a$[178]"" [167] 20100
  337. 20110 yy[178]([198](a$)):[139]yy[178]145[167]jmp[178]jmp[171]1:[141] 20160
  338. 20130 [139]yy[178]17[167]jmp[178]jmp[170]1:[141] 20170
  339. 20135 [139]yy[178]13[167][142]
  340. 20145 [137] 20100
  341. 20160 [139]jmp[178]0[167]jmp[178]a:[151]sp,32:sp[178]sp[170]b:[151]sp,62:[142]
  342. 20161 [151]sp,32:sp[178]sp[171]40:[151]sp,62:[142]
  343. 20170 [139]jmp[178]a[170]1[167]jmp[178]1:[151]sp,32:sp[178]sp[171]b:[151]sp,62:[142]
  344. 20171 [151]sp,32:sp[178]sp[170]40:[151]sp,62:[142]
  345. 20200 [139]([194](1299[170]i)[170][194](1309[170]i)[170][194](1319[170]i)[170]x)[173]9[179][178][194](1379[170]i)[167]20204
  346. 20202 [153]"onononstopvalrst (NULL)aserne kaufen!wait":[141]20800:[142]
  347. 20204 [139][194](d[170]i)[170]x[177]255[167][142]
  348. 20209 g(i)[178]g(i)[171]a:a(i)[178]a(i)[170]c:[151](d[170]i),[194](d[170]i)[170]x
  349. 20210 [139][194](1399[170]i)[170]b[177]255[167][151](1399[170]i),255:[137]20050
  350. 20211 [151](1399[170]i),[194](1399[170]i)[170]b:[137]20050
  351. 20249 [139] gl(i)[171]l[179]1[167]20060
  352. 20252 [141]20050:g(i)[178]g(i)[170]a:eb(i)[178]eb(i)[170]b:eg(i)[178]eg(i)[170]c:a(i)[178]a(i)[170]d:lb(i)[178]lb(i)[171]q
  353. 20254 [151](f[170]i),[194](f[170]i)[170]h:al(i)[178]al(i)[170]j:gl(i)[178]gl(i)[171]l:bl(i)[178]bl(i)[170]l:bl(i)[178]bl(i)[171]q
  354. 20255 [151](1039[170]i),[194](1039[170]i)[170]g:[139][194](1039[170]i)[179]5[167][151](1039[170]i),6
  355. 20257 [139][194](1039[170]i)[177]100[167] [151](1039[170]i),100:[142]
  356. 20258 [142]
  357. 20290 [139][194](1095[170]i)[177]200[167]49000
  358. 20291 [153]"(NULL)ieviel (NULL)tfreck ";:[133]v
  359. 20292 x[178]v:[139]jm[178]2[176]jm[178]4[176]jm[178]6[167]v[178]v[171](v[172]2)
  360. 20293 [139][194](d[170]i)[170]v[179]0[167][153]"ononon":[137]20290
  361. 20294 [139]v[178]0[167][142]
  362. 20295 [139]gl(i)[171]x[172]g[179]0[176][194](d[170]i)[170]v[177]255[176]x[179]0[167][153]"ononon":[137]20290
  363. 20300 g(i)[178]g(i)[171]x[172]a:a(i)[178]a(i)[170]x[172]b:up(i)[178]up(i)[170]x[172]c:[151](d[170]i),[194](d[170]i)[170]v
  364. 20302 bl(i)[178]bl(i)[170]x[172]g:gl(i)[178]gl(i)[171]x[172]g
  365. 20304 [139][194](1095[170]i)[170]x[172]e[177]255[167][151](1095[170]i),255:[137]20307
  366. 20305 [151](1095[170]i),[194](1095[170]i)[170]x[172]e
  367. 20307 eb(i)[178]eb(i)[170]x[172]z:lb(i)[178]lb(i)[171]x[172]q:bl(i)[178]bl(i)[171]x[172]q:[137]20050
  368. 20350 [153]"(NULL)ieviel (NULL)tfreck ";:[133]x
  369. 20351 v[178]x:[139]jm[178]2[176]jm[178]4[176]jm[178]6[167]v[178]x[171](x[172]2)
  370. 20352 [139]x[178]0[167][142]
  371. 20353 [139]gl(i)[171]x[172]j[179]0[176][194](a[170]i)[170]v[177]255[176][194](a[170]i)[170]v[179]0[167][153]"ononon":[137]20350
  372. 20360 al(i)[178]al(i)[170]x[172]d:[151](a[170]i),[194](a[170]i)[170]v:pi(i)[178]pi(i)[170]x[172]e
  373. 20362 gl(i)[178]gl(i)[171]x[172]j:lh(i)[178]lh(i)[170]x[172]f:eb(i)[178]eb(i)[170]x[172]g:g(i)[178]g(i)[170]x[172]h
  374. 20364 bl(i)[178]bl(i)[170]x[172]j:a(i)[178]a(i)[170]x[172]z:lb(i)[178]lb(i)[171]x[172]q:bl(i)[178]bl(i)[171]x[172]q:[137]20050
  375. 20400 [139]gl(i)[171]z[179]1[167]20060
  376. 20402 g(i)[178]g(i)[171]a:[151](b[170]i),[194](b[170]i)[170]c:la(i)[178]la(i)[170]d:gk(i)[178]gk(i)[170]e
  377. 20403 al(i)[178]al(i)[170]g:a(i)[178]a(i)[170]x:gl(i)[178]gl(i)[171]z:eb(i)[178]eb(i)[170]ty
  378. 20405 lb(i)[178]lb(i)[171]q:bl(i)[178]bl(i)[171]q:[137]20050
  379. 20450 [153]"     cmdcmdcmdcmd"[194](1299[170]i)
  380. 20451 [153]"     cmdcmdcmdcmd"[194](1309[170]i)
  381. 20452 [153]"     cmdcmdcmdcmd"[194](1319[170]i)
  382. 20453 [153]"     cmdcmdcmdcmd"[194](1299[170]y)
  383. 20454 [153]"     cmdcmdcmdcmd"[194](1309[170]y)
  384. 20455 [153]"     cmdcmdcmdcmd"[194](1319[170]y)
  385. 20465 [142]
  386. 20500 [151]198,0:[153]"(NULL)ie haben";g(i)"left$asc zur (NULL)erffregung."
  387. 20501 b[178]0:[153]"(NULL)ieviel left$asc wollen sie bereitstellen";[166]5):[133]b
  388. 20502 [139] b[177][171]0.01[167]20505
  389. 20503 [137]20500
  390. 20505 g(i)[178]g(i)[171]b:[142]
  391. 20550 x[178][194](1023[170]i)[172]2[170][194](1031[170]i)[172]3[170][194](1055[170]i)[172]2[170][194](1071[170]i)[172]1[170][194](1099[170]i)[172]1
  392. 20551 x[178]x[170][194](1119[170]i)[172]3.5[170][194](1123[170]i)[172]2[170](ac(i)[173]100)[170][194](1380[170]i)[172]0.5[170][194](1128[170]i)[172]0.5
  393. 20554 x[178]x[170][194](1135[170]i)[172]0.5:x[178]([181](x)):[139][194](1043[170]i)[171]x[179]1[167][151](1043[170]i),0:[142]
  394. 20555 [151](1043[170]i),[194](1043[170]i)[171]x:[142]
  395. 20700 [153]"load(NULL)ollen sie noch ein (NULL)piel wagen (s)"
  396. 20720 [153]"oder lieber aufh\ren (a) ?"
  397. 20730 [161]a$:[139]a$[178]""[167]20730
  398. 20740 [139]a$[178]"s"[167][138]
  399. 20741 [139]a$[178]"a"[167][158]64738
  400. 20743 [137]20730
  401. 20800 [151]198,0:[146]198,1:[151]198,0:[142]
  402. 20950 [129]x[178]1[164]40:[151](1299[170]x),6:[130]:[129]x[178]1[164]30:[151](1349[170]x),0:[130]
  403. 20955 [129]x[178](zz[170]1)[164]10:lb(x)[178]20000:[130]
  404. 20960 [129]x[178]1[164]10:[135]ln$(x):[130]:[137]20980
  405. 20965 [131]"str$eutschland","ascrankreich","(NULL)chweden","str$^nemark","left$olland"
  406. 20970 [131]"(NULL)chweiz","right$talien","valngland","possterreich","(NULL)panien"
  407. 20980 [129]x[178]1[164]10:y[178][181](10[172][187](1))[170]20:[151](1399[170]x),y:[151](1699[170]x),0:[130]:[142]
  408. 21000 [141]19000:[153]"valnergie:"
  409. 21002 [139][194](1039[170]i)[171][194](1075[170]i)[179]1[167][151](1039[170]i),0:[137]21020
  410. 21004 [151](1039[170]i),[194](1039[170]i)[171][194](1075[170]i)
  411. 21020 [153]"(NULL)roduktion      :";eg(i)"(NULL)left$asc"
  412. 21021 [153]"(NULL)orrat          :";ev(i)"(NULL)left$asc"
  413. 21025 [153]"valnergie ben\tigt:";eb(i)"(NULL)left$asc":ev(i)[178](ev(i)[170]eg(i))[171]eb(i):g[178]1
  414. 21030 [139]ev(i)[179]0[167]g[178]ev(i):ev(i)[178]0
  415. 21031 [139]g[177]0[167]21305
  416. 21050 x[178][181](g[172][171]1.98):g(i)[178]g(i)[171]x:[153]"(NULL)u wenig valnergie,es entstanden"
  417. 21060 [153]"(NULL)ch^den in left$\he von";x"left$asc.":g(i)[178]g(i)[171]x
  418. 21145 [151](1155[170]i),[194](1155[170]i)[171]1
  419. 21305 [153]"mid$ustiz:"
  420. 21306 x[178][181](750[172][187](1))[170]750:x[178]x[171][194](1087[170]i)[171][194](1155[170]i)[171]po(i):[139]x[179]50[167][141]52000
  421. 21310 [153]"begangene (NULL)erbrechen :";x
  422. 21315 y[178][181](x[173]([194](1075[170]i)[170]3)):[153]"chr$ef^ngnisstrafen     :";y
  423. 21320 x[178][181](x[172]1.9):[153]"entstandener (NULL)chaden :";x"left$asc":g(i)[178]g(i)[171]x
  424. 21395 x[178][194](1067[170]i)[172]100:[139]y[179]x[167]21490
  425. 21450 [153]"(NULL)u wenig chr$ef^ngnisse,es entstanden"
  426. 21453 y[178]x[171]y[172][171]5:[153]"valxtrakosten in left$\he von";y"left$asc.":g(i)[178]g(i)[171]y
  427. 21490 [141]20800
  428. 21499 [141]19000:[153]"valinnahmen durch"
  429. 21500 y[178][181](1000[172][187](1))[170]99:x[178]((ew(i)[173]0.3)[170]y)[173]100[172][194](1083[170]i):x[178]([181](x[172]2))
  430. 21510 [153]"- (NULL)teuern               :";x"left$asc":g(i)[178]g(i)[170]x
  431. 21520 x[178]([181](eb(i)[173]3.34)):[153]"- (NULL)tromverkauf ans (NULL)olk :";x"left$asc":g(i)[178]g(i)[170]x
  432. 21521 [139]al(i)[179]1[167]21550
  433. 21536 x[178][181](al(i)[173]0.911):g(i)[178]g(i)[170]x:[153]"- atnbgaben von atnusl^ndern:";x"left$asc"
  434. 21550 y[178][181](999[172][187](1)):x[178][181](up(i)[173]32.72)[172][194](1095[170]i)[170]y[171]([194](1079[170]i)[172]30)
  435. 21555 [139]x[179]1000[167]x[178]1000
  436. 21590 [153]"- (NULL)ourismus             :";x"left$asc
  437. 21591 g(i)=g(i)+x
  438. 21600 z=int(up(i)/100)*peek(1079+i):x=int((z/2)*rnd(1)):z=z+x
  439. 21630 print"- [218]oll                  :";z"[200][198]":g(i)=g(i)+z:gosub46000
  440. 21690 q=int(3*rnd(1))+5:y=x*q:print"- [201]ndustrie             :";y"[200][198]"
  441. 21691 g(i)=g(i)+y:ifz=1thengosub46002
  442. 21750 gosub20800:gosub44000:goto45000
  443. 21751 gosub33000
  444. 21752 ifal(i)=0then21755
  445. 21753 x=int(al(i)/200):ifpeek(1039+i)-x<1thenpoke(1039+i),0:goto21755
  446. 21754 poke(1039+i),peek(1039+i)-x
  447. 21755 gosub19000:print"[197]rnte"
  448. 21757 print"[215]etterlage    :";
  449. 21760 x=int(4*rnd(1))+1:onxgoto21770,21780,21790,21800,21
  450. 21770 print"[196]*rre":x=5:goto21820
  451. 21780 print"sehr trocken":x=6.5:goto21820
  452. 21790 print"normal":x=12:goto21820
  453. 21800 print"sehr gut":x=16:goto21820
  454. 21810 print"zu feucht":x=9:goto21820
  455. 21820 ifw>300thenz=int(4000*rnd(1)):goto21830
  456. 21823 z=0
  457. 21830 y=int((w*x)+z):print"[197]rnte         :";y"[199][200][198]"
  458. 21839 print"[214]orrat        :";gv(i)"[199][200][198]"
  459. 21842 print"[214]erbrauch     :";gb(i)"[199][200][198]":gv(i)=gv(i)+y
  460. 21843 ifgb(i)>gk(i)andgv(i)>gk(i)thengosub20800:gosub49500
  461. 21844 ifgv(i)<0thengv(i)=0
  462. 21845 ifgv(i)<gb(i)then21870
  463. 21846 ifyy=1thenyy=0:goto21890
  464. 21847 ifxx=512thenxx=0:goto21900
  465. 21848 goto21890
  466. 21870 print"[196]adurch,dass sie zu wenig [199]etreide"
  467. 21872 x=gb(i)-gv(i):x=x/10:x=(int(x)):print"hatten,verhungerten";x"[205]enschen."
  468. 21874 ew(i)=ew(i)-x:x=x/50:x=(int(x))
  469. 21875 if(peek(1039+i)-x)<0then poke(1039+i),0:goto21890
  470. 21876 poke(1039+i),peek(1039+i)-x
  471. 21890 gosub20800
  472. 21900 ifgv(i)<0thengv(i)=0
  473. 21909 ifgv(i)<gb(i)thenx=gv(i):goto21955
  474. 21910 x=gb(i)
  475. 21955 gosub19000:print"[197]innahmen durch [199]etreideverkauf":w=int(x/1.42)
  476. 21961 w=w+v:print"an ihr [214]olk :";w"[200][198]":p(i)=p(i)+w:gv(i)=gv(i)-gb(i)
  477. 21962 ifgv(i)<0thengv(i)=0
  478. 21963 ifgv(i)<la(i)then22000
  479. 21993 x=gv(i)-la(i):gv(i)=la(i):print"[196]a sie zu wenig [204]agerplatz hatten"
  480. 21995 print"verschimmelten";x"[199][200][198]."
  481. 22000 print"[193]llgemeine [213]nterhaltskosten :";a(i)"[200][198]":gosub20800
  482. 22002 g(i)=g(i)-a(i)
  483. 22055 gosub19000:gosub20550:print"[213]mweltschutzgruppen verlangen"
  484. 22060 y=(100-peek(1043+i))*165:x=int(700*rnd(1)):z=(ja-2010)*121:y=y+x+z
  485. 22062 print"von [201]hnen,";y"[200][198] f*r den":print"[213]mweltschutz auszugeben."
  486. 22091 gosub20500:w=int(b/165):ifpeek(1043+i)+w>100thenpoke(1043+i),100:goto22150
  487. 22092 poke(1043+i),peek(1043+i)+w
  488. 22150 gosub 19000
  489. 22210 q=(int(ew(i)/2244)):ifpeek(1039+i)-q<1thenpoke(1039+i),0:goto22218
  490. 22213 poke(1039+i),peek(1039+i)-q
  491. 22218 y=(100-peek(1039+i))*523:z=(ja-2010)*251
  492. 22219 x=int(500*rnd(1)):y=y+x+z:print"[196]as [214]olk verlangt";y"[200][198] von"
  493. 22220 print"[201]hnen,um \ffentliche [197]inrichtungen":print"finanzieren zu k\nnen."
  494. 22235 gosub20500:x=int(b/523):ifpeek(1039+i)+x>100thenpoke(1039+i),100:goto22305
  495. 22240 poke(1039+i),peek(1039+i)+x
  496. 22305 gosub47500:ifpeek(1043+i)<50thengosub22400
  497. 22320 ifpeek(1039+i)<40thengosub22500
  498. 22325 return
  499. 22400 gosub19000:x=int(4*rnd(1))+1:print"[196]urch den schlechten [218]ustand"
  500. 22410 y=100-peek(1043+i):x=x*y:x=(int(x)):y=int(9*rnd(1))+1:x=x+y
  501. 22411 print"der [213]mwelt starben"
  502. 22412 print"";x"[205]enschen an schweren [214]ergift-"
  503. 22415 print"ungen.[196]as [214]olk ist dar*ber sehr ver-"
  504. 22420 print"^rgert und fordert sie auf,mehr f*r":ew(i)=ew(i)-x
  505. 22425 print"die [213]mwelt zu tun.":x=x/20
  506. 22426 ifpeek(1039+i)-x<1thenpoke(1039+i),0:goto22430
  507. 22427 poke(1039+i),peek(1039+i)-x
  508. 22430 goto20800
  509. 22500 gosub31000:print"[146][208]resident ";n$(i)" ist leider ausge-"
  510. 22510 print"scheiden.[197]r wurde von seinem w*tendem"
  511. 22515 print"[214]olk geblendet und verbannt.":print"ihre politische [203]arriere ist damit"
  512. 22525 print"wohl beendet.":t(i)=1:goto20800
  513. 22600 ifpeek(1379+i)<1thenpoke(1152+i),0:return
  514. 22610 gosub19000:z=peek(1379+i)*99:x=z/100:print"[196]ie [211][193][199] fordert von ihnen,"
  515. 22630 print"";z"[200][198] f*r die [211]icherung von"
  516. 22635 print"[203]asernen bereitzustellen.":gosub20500:y=b/x
  517. 22636 ifpeek(1151+i)+y>100thenpoke(1151+i),100:return
  518. 22637 poke(1151+i),y:return
  519. 23010 x=int(54*rnd(1))+1:ifx>27thenreturn
  520. 23015 gosub19000:printspc(13)"[197][210][197][201][199][206][201][211][211]"
  521. 23020 on x goto23100,23200,23300,23400,23500,23600,23700,23800,23900,24000
  522. 23025 onx-10goto24100,24200,24300,24400,24500,24600,24700,24800,24900,25000
  523. 23030 onx-20goto25100,25200,25300,25400,25500,25600,25700
  524. 23100 y=int(4*rnd(1))+1:onygoto23105,23107,23109,23111
  525. 23105 a=1027:b$=" [215]indrad":eg(i)=eg(i)-5000:a(i)=a(i)-60:ev(i)=ev(i)-50
  526. 23106 gl(i)=gl(i)+25:goto23115
  527. 23107 a=1031:b$=" [211]taudamm":eg(i)=eg(i)-11000:a(i)=a(i)-40
  528. 23108 gl(i)=gl(i)+200:eb(i)=eb(i)-100:goto23115
  529. 23109 a=1071:b$=" [200]otel":eb(i)=eb(i)-140:a(i)=a(i)-110:gl(i)=gl(i)+60
  530. 23110 up(i)=up(i)-400:goto23115
  531. 23111 a=1123:b$="e [198]abrik":pi(i)=pi(i)-3000:eb(i)=eb(i)-500
  532. 23112 a(i)=a(i)-120:bl(i)=bl(i)-100
  533. 23115 ifpeek(a+i)<1then return
  534. 23116 y=int(3*rnd(1))+1:onygoto23117,23118,23119
  535. 23117 a$="[212]erroranschlag":goto23120
  536. 23118 a$="[194]rand":goto23120
  537. 23119 a$="[201]rrtum einer [193]brissfirma"
  538. 23120 print"[196]urch einen ";a$
  539. 23121 print"verloren [211]ie ein";b$"."
  540. 23130 z=int(2000*rnd(1))+1000:print"[211]chaden :";z"[200][198]"
  541. 23135 poke(a+i),peek(a+i)-1:goto20800
  542. 23200 print"[215]ollen sie ein landesweites [203]inder-"
  543. 23205 print"fest veranstalten (j/n) ?"
  544. 23210 geta$:ifa$=""then23210
  545. 23215 ifa$="j" then23230
  546. 23220 ifa$="n" then23260
  547. 23225 goto 23210
  548. 23230 print"[196]er [197]rfolg war riesig,die [203]osten"
  549. 23235 print"leider auch! [196]as [199]anze kostete n^mlich"
  550. 23240 x=(int(ew(i)/3)/3):y=int(x*rnd(1))+2000:print"";y"[200][198].":g(i)=g(i)-y
  551. 23245 poke(1039+i),peek(1039+i)+3:ifpeek(1039+i)>100thenpoke(1039+i),100
  552. 23255 goto23280
  553. 23260 gosub50760:print"[201]hren [199]eiz !"
  554. 23270 ifpeek(1039+i)-3<1thenpoke(1039+i),0:goto23280
  555. 23275 poke(1039+i),peek(1039+i)-3
  556. 23280 goto20800
  557. 23300 print"[197]xtra [211]teuereinnahmen durch eine"
  558. 23305 x=int(2000*rnd(1))+2000:print"private [204]otterie :";x"[200][198]":g(i)=g(i)+x:goto20800
  559. 23400 print"[212]aste !":goto20800
  560. 23500 x=int(5*rnd(1))+1:ifx>1thenprint"[212]aste !":goto20800
  561. 23503 gosub31000:print"";n$(i)" ist leider ver-"
  562. 23506 print"storben.[197]in [212]errorist drang in seine"
  563. 23510 print"[214]illa ein und vergiftete ihn.":goto20800
  564. 23600 print"[197]in [185]ltransporter lief aus und ver-
  565. 23605 [153]"seuchte das chr$rundwasser.str$ie"
  566. 23610 x[178][181](1000[172][187](1)[170]750):[153]"valntseuchung kostete";x"left$asc.":g(i)[178]g(i)[171]x
  567. 23615 [137]20800
  568. 23700 [153]"valin right$ndustrieller wird verd^chtigt,"
  569. 23710 [153]"(NULL)teuern hinterzogen zu haben.(NULL)ollen"
  570. 23720 [153]"sie einen (NULL)rozess (j/n) ?"
  571. 23725 [161]a$:[139] a$[178]""[167] 23725
  572. 23730 [139]a$[178]"j"[167]23750
  573. 23735 [139]a$[178]"n"[167][142]
  574. 23740 [137] 23725
  575. 23750 x[178][181](2[172][187](1))[170]1:[139]x[178]1[167]23760
  576. 23754 [137]23770
  577. 23760 [153]"(NULL)ie haben gewonnen und bekommen"
  578. 23762 x[178][181](3000[172][187](1))[170]1000:[153]"";x"left$asc.":g(i)[178]g(i)[170]x:[137]20800
  579. 23770 x[178]([181](1000[172][187](1))[170]500):[153]"(NULL)ie haben verloren."
  580. 23771 [153]"chr$erichtskosten :";x"left$asc":[137]20800
  581. 23800 [153]"peekei einem ascussballspiel wurden"
  582. 23805 x[178][181](5[172][187](1))[170]5:[153]"";x"ascans bei (NULL)rfregeleien get\tet.":[141]50760
  583. 23816 [153]"right$hre (NULL)olizei.":[139][194](1039[170]i)[171]3[179]1[167] [151](1039[170]i),0:[137]20800
  584. 23820 [151](1039[170]i),[194](1039[170]i)[171]3:[137]20800
  585. 23900 [153]"chr$eiseldrama !":x[178][181](3[172][187](1))[170]2:[153]"peekei einem peekankfreberfall wurden";x
  586. 23904 [153]"(NULL)eute als chr$eiseln genommen.":[139][194](1091[170]i)[179]1[167]23930
  587. 23908 [153]"right$hr (NULL)onderkommando stfrermte die peekank"
  588. 23910 [153]"und befreite die chr$eiseln.str$ie chr$eisel-":[153]"nehmer wurden erschossen."
  589. 23918 x[178][181](1000[172][187](1))[170]1000:[153]"(NULL)osten:";x"left$asc":g(i)[178]g(i)[171]x
  590. 23920 [139][194](1039[170]i)[170]4[177]100[167][151](1039[170]i),100:[137]20800
  591. 23922 [151](1039[170]i),[194](1039[170]i)[170]4:[137]20800
  592. 23930 [153]"str$a sie kein (NULL)onderkommando hatten,"
  593. 23932 [153]"musste man den ascorderungen nachgeben."
  594. 23934 y[178][181](x[172][187](1))[170]2:[153]"";y"chr$eiseln sind ums (NULL)eben ge-"
  595. 23936 [153]"kommen.str$as (NULL)olk ist sehr ver^rgert":ew(i)[178]ew(i)[171]y
  596. 23938 [153]"darfreber,dass kein (NULL)onderkommando"
  597. 23939 [153]"vorhanden war."
  598. 23940 [139][194](1039[170]i)[171]4[179]1[167][151](1039[170]i),0:[137]20800
  599. 23942 [151](1039[170]i),[194](1039[170]i)[171]4:[137]20800
  600. 24000 [153]"(NULL)aste !":[137]20800
  601. 24100 [153]"(NULL)ie mussten einen 40 mid$ahre alten"
  602. 24105 x[178][181](1000[172][187](1))[170]1000:[153]"(NULL)redit zurfreckzahlen.";:g(i)[178]g(i)[171]x
  603. 24106 [153]"(NULL)osten:";x"left$asc":[137]20800
  604. 24200 [153]"right$hre atnrmee hat bei einem inter-":[153]"nationalen und kostenlosen atnus-"
  605. 24210 [153]"bildungswettbewerb teilgenommen.right$hre"
  606. 24215 [153]"(NULL)ampfst^rke stieg.":[139][194](1115[170]i)[170]4[177]100[167][151](1115[170]i),100:[137]20800
  607. 24220 [151](1115[170]i),[194](1115[170]i)[170]4:[137]20800
  608. 24300 [153]"atnus dem (NULL)erkauf alter (NULL)agerbest^nde"
  609. 24305 x[178][181](2000[172][187](1))[170]1000:[153]"erhalten sie";x"left$asc.":[137]20800
  610. 24400 [153]"valine (NULL)enten-(NULL)onderzahlung ist f^llig."
  611. 24405 x[178][181](2000[172][187](1))[170]1500:g(i)[178]g(i)[171]x:[153]"(NULL)osten :";x"left$asc":[137]20800
  612. 24500 [153]"peekei einer left$ochwasserkatastrophe"
  613. 24505 x[178][181](5000[172][187](1))[170]3000:[153]"entstand ein (NULL)achschaden von";x"left$asc."
  614. 24510 g(i)[178]g(i)[171]x:x[178][181](100[172][187](1))[170]20:[153]"";x"(NULL)enschen kamen ums (NULL)eben."
  615. 24515 ew(i)[178]ew(i)[171]x:[137]20800
  616. 24600 x[178][181](250[172][187](1))[170]200:[153]"valine chr$ruppe von";x"politisch"
  617. 24605 [153]"(NULL)erfolgten wurde in right$hr (NULL)and aufge-"
  618. 24610 [153]"nommen.":ew(i)[178]ew(i)[170]x:[137]20800
  619. 24700 [153]"right$n einer (NULL)linik fiel der (NULL)trom aus."
  620. 24705 [153]"str$a kein (NULL)otstrom-atnggregat vorhanden"
  621. 24710 x[178][181](15[172][187](1))[170]10:[153]"war starben,";x"(NULL)enschen."
  622. 24715 [141]50760:[153]"das ascehlen eines (NULL)otstrom-":ew(i)[178]ew(i)[171]x
  623. 24720 [153]"aggregats in einer (NULL)linik."
  624. 24725 y[178][181](100[172][187](1))[170]50:y[178]x[172]y:[153]"str$ie valntsch^digungen f*r die ascamilien"
  625. 24730 [153]"belaufen sich auf";y"left$asc.":g(i)[178]g(i)[171]y
  626. 24735 [139][194](1039[170]i)[171]5[179]1[167][151](1039[170]i),0:[137]20800
  627. 24740 [151](1039[170]i),[194](1039[170]i)[171]5:[137]20800
  628. 24800 [153]"(NULL)ie bekommen einen (NULL)redit in left$\he von"
  629. 24805 x[178][181](7000[172][187](1))[170]3000:[153]"";x"left$asc zurfreck.":g(i)[178]g(i)[170]x:[137]20800
  630. 24900 [153]"right$hr (NULL)taat bekam durch ein asc\rder-"
  631. 24905 [153]"ungsprojekt einen (NULL)uschuss in left$\he"
  632. 24910 x[178][181](10000[172][187](1))[170]5000:[153]"von";x"left$asc.":g(i)[178]g(i)[170]x:[137]20800
  633. 25000 x[178][181](5[172][187](1))[170]1:[139]x[177]2[176][194](1023[170]i)[178]0[167][153]"(NULL)aste !":[137]20800
  634. 25020 [153]"valines right$hrer (NULL)ernkraftwerke ist in"
  635. 25022 [153]"die (NULL)uft geflogen.right$m ganzen (NULL)and be-"
  636. 25025 [153]"gann ein (NULL)assensterben."
  637. 25030 [153]"right$hr (NULL)and ist f*r die die n^chsten 50"
  638. 25035 [153]"mid$ahre nicht mehr bewohnbar."
  639. 25040 [153]"(NULL)ie starben ebenfalls,womit das":[151](1699[170]i),1
  640. 25045 [153]"(NULL)piel ffrer sie leider beendet ist.":[137]20800
  641. 25100 [153]"str$urch peekrandstiftung in einem right$hrer"
  642. 25105 [153]"peekfreros enstand ein (NULL)achschaden von":x[178][181](3000[172][187](1))[170]2000
  643. 25110 [153]"";x"left$asc.":g(i)[178]g(i)[171]x:[137]20800
  644. 25200 [153]"peekei einem chr$rubenunglfreck kamen"
  645. 25205 x[178][181](20[172][187](1))[170]5:ew(i)[178]ew(i)[171]x:y[178][181](3000[172][187](1))[170]2000:g(i)[178]g(i)[171]y
  646. 25210 [153]"";x"(NULL)enschen ums (NULL)eben.(NULL)ie mussten"
  647. 25215 [153]"";y"left$asc an die ascamilien der (NULL)pfer"
  648. 25220 [153]"bezahlen.":[137]20800
  649. 25300 [139][194](1043[170]i)[177]50[167][153]"(NULL)aste !":[137]20800
  650. 25305 [153]"(NULL)mweltschutzgruppen veranstalteten"
  651. 25310 [153]"mehrere (NULL)assendemos,um auf den"
  652. 25315 [153]"schlechten (NULL)mweltzustand aufmerksam"
  653. 25320 [153]"zu machen.":[137]20800
  654. 25400 [139][194](1023[170]i)[179]10[167][153]"(NULL)aste !":[137]20800
  655. 25405 [153]"str$as (NULL)olk fordert sie auf,weniger"
  656. 25406 [153]"(NULL)ernkraftwerke zu bauen.":[137]20800
  657. 25500 [153]"right$hr (NULL)ekret^r machte sich mit"
  658. 25505 x[178][181](3000[172][187](1))[170]999:[153]"";x"left$asc aus dem (NULL)taub.":[137]20800
  659. 25525 x[178][181](20[172][187](1))[170]5:ew(i)[178]ew(i)[171]x:y[178]x[173]2
  660. 25600 [153]"(NULL)ie werden aufgefordert,left$ilfsgfreter"
  661. 25610 [153]"ffrer valrdbebenopfer in mid$apan be-"
  662. 25620 [153]"reitzustellen.str$ie (NULL)osten sind noch"
  663. 25630 [153]"nicht absch^tzbar.right$hr (NULL)olk fordert"
  664. 25640 [153]"sie auf,zu spenden.(NULL)ollen sie"
  665. 25650 [153]"die left$ilfsgfreter bereitstellen (j/n) ?"
  666. 25660 [161]a$:[139]a$[178]""[167]25660
  667. 25670 [139]a$[178]"j"[167]25690
  668. 25675 [139]a$[178]"n"[167]25682
  669. 25676 [137]25660
  670. 25682 [141]50760:[153]"ihren chr$eiz !":[139][194](1039[170]i)[171]4[179]0[167][151](1039[170]i),0:[137]20800
  671. 25683 [151](1039[170]i),[194](1039[170]i)[171]4:[137]20800
  672. 25690 [153]"str$as (NULL)olk ist freber ihre left$ilfsbereit-"
  673. 25691 x[178][181](3000[172][187](1))[170]2500:g(i)[178]g(i)[171]x:[151](1039[170]i),[194](1039[170]i)[170]2
  674. 25692 [153]"schaft sehr erfreut.(NULL)osten:";x"left$asc":[137]20800
  675. 25693 [139][194](1039[170]i)[177]100[167][151](1039[170]i),100
  676. 25700 [153]"str$ie (NULL)enovierung der atnltstadt right$hrer":x[178][181](2000[172][187](1))[170]1000
  677. 25705 [153]"left$auptstadt kostet (NULL)ie";x"left$asc.":g(i)[178]g(i)[171]x:[137]20800
  678. 30000 [153]"load       left$erzlichen chr$l*ckwunsch,"
  679. 30005 [153]"(NULL)ie haben right$hre atnmtszeit *berstanden."
  680. 30010 x[178]1:y[178]lb(x):[129]z[178]1[164]9:[139]lb(z)[177]y[167]y[178]lb(z):x[178]z:[130]
  681. 30015 [130]
  682. 30030 [153]"(NULL)ieger ist ";ln$(x)",dessen (NULL)r^si-"
  683. 30040 [153]"dent nun die ganze valchr$ regieren wird."
  684. 30050 [153]"str$ie anderen (NULL)r^sidenten sind wegen"
  685. 30060 [153]"mangelnder ascfrehrungsf^higkeit ausge-"
  686. 30070 [153]"geschieden.":[141]20800:[138]
  687. 31000 [153]"loadsys          [        [        ["
  688. 31005 [153]"          ]        ]        ]"
  689. 31006 [141]31010:[137]31011
  690. 31010 [129]a[178]1[164]2:[153]"stop         ":[130]a:[142]
  691. 31011 [153]"stop  stop   stop   stop "
  692. 31012 [153]"stop  stop   stop   stop "
  693. 31013 [153]"stop         "
  694. 31014 [153]"stop  stop   stop   stop "
  695. 31015 [153]"stop  stop   stop   stop "
  696. 31017 [141]31010
  697. 31019 [153]"stop                                        "
  698. 31020 [153]"onstop                                        contstopwait";:[142]
  699. 31130 c2[178][194](1200[170]c):a2[178]a2[170]b2[170]c2[170]50
  700. 32000 [141]31000:[153]"str$a sie anscheinend nicht mit chr$eld"
  701. 32010 [153]"umgehen k\nnen und in die (NULL)inuszahlen"
  702. 32020 [153]"wirtschafteten,wurden sie von right$hrem"
  703. 32025 [153]"wfretendem (NULL)olk erschlagen !":[151](1035[170]i),1:[137]20800
  704. 32145 [151](1155[170]i),[194](1155[170]i)[171]2:[137]19299
  705. 33000 [141]19000:[153]"(NULL)andwirtschaft":[139]gv(i)[178]0[167]33100
  706. 33003 [139]gv(i)[179]sg(i)[167][153][166]9)"(NULL)(NULL)close(NULL)val(NULL)right$chr$close(NULL)atnatn(NULL)chr$(NULL)(NULL)!!!"
  707. 33005 [153]"(NULL)osten ffrer"
  708. 33010 x[178]ac(i)[172]2:y[178][181](500[172][187](1))[170]99:x[178]x[170]y:g(i)[178]g(i)[171]x:[153]"- das (NULL)flfregen";
  709. 33011 [153]" der ascelder :";x"left$asc"
  710. 33020 x[178]([181](sg(i)[173]2)):y[178][181](500[172][187](1))[170]99:x[178]x[170]y
  711. 33021 [153]"- die atnussaat            :";x"left$asc"
  712. 33025 [139]gv(i)[177]sg(i)[167]w[178]sg(i):gv(i)[178]gv(i)[171]sg(i):[137]33030
  713. 33027 w[178]gv(i):gv(i)[178]0
  714. 33030 [153]"- verbrauchtes (NULL)aatgut   :";w"chr$left$asc":[137]20800
  715. 33100 [153]"str$a sie kein (NULL)aatgut hatten,konnten"
  716. 33110 [153]"(NULL)ie leider kein chr$etreide anpflanzen.":w[178]0:[141]20800
  717. 35000 sp[178]52585
  718. 35001 [141]19000:[153]"(NULL)elches (NULL)and wollen sie angreifen ?"
  719. 35005 a[178]11:[151]sp,62:b[178]400:jmp[178]1
  720. 35006 [153]"":[129]x[178]1[164]10:[153]"";ln$(x):[130]:[153]"(NULL)enfre"
  721. 35035 [141]20100:[139]jmp[178]11[167]2499
  722. 35036 [139]jm[178]i[167]35001
  723. 35037 [151](1159[170]i),1:x[178]o:[129]y[178]zz[170]1[164]10:x[178]x[170][194](1699[170]y):[130]
  724. 35038 [139]jm[179]zz[170]1[175]x[178]10[171]zz[175][194](1699[170]jm)[178]0[167]35050
  725. 35039 [139]jm[177]zz[175][194](1699[170]jmp)[178]0[167]35050
  726. 35040 [137]35000
  727. 35050 y[178]jmp:[137]19677
  728. 36000 u[178][194](1299[170]i)[172]1:v[178][194](1309[170]i)[172]2:w[178][194](1319[170]i)[172]1:u[178]u[170]v[170]w
  729. 36005 [139][194](1399[170]i)[170]u[177]255[167][151](1399[170]i),255:[137]36010
  730. 36006 [151](1399[170]i),u
  731. 36010 u[178][194](1299[170]y)[172]1:v[178][194](1309[170]y)[172]2:w[178][194](1319[170]y)[172]1:u[178]u[170]v[170]w
  732. 36015 [139][194](1399[170]y)[170]u[177]255[167][151](1399[170]y),255:[142]
  733. 36016 [151](1399[170]y),u:[142]
  734. 37000 [141]19000:[153]"*ber welches (NULL)and wollen sie":[153]"right$nformationen ?"
  735. 37001 [129]x[178]1[164]10:[139]lb(x)[179]0[167]lb(x)[178]512:[130]
  736. 37002 [130]
  737. 37030 sp[178]52665:a[178]11:[151]sp,62:b[178]400:jmp[178]1
  738. 37040 [153]"":[129]x[178]1[164]10:[153]"";ln$(x):[130]
  739. 37041 [153]"(NULL)enfre":[141]20100:[139]jmp[178]11[167][142]
  740. 37052 [139][194](1699[170]jm)[178]1[167][153]"valxistiert nicht mehr!":[141]20800:[137]37000
  741. 37060 x[178]jmp:[141]19000:[153]"right$nformationen freber ";ln$(x)
  742. 37080 [153]"(NULL)anzer      :";[194](1299[170]x)
  743. 37085 [153]"asclugzeuge   :";[194](1309[170]x)
  744. 37090 [153]"(NULL)ruppen     :";[194](1319[170]x)
  745. 37092 [153]"(NULL)asernen    :";[194](1380[170]x)
  746. 37100 [153]"atnusbildung  :";[194](1399[170]x)"%"
  747. 37110 [153]"(NULL)andesgr\sse:";lb(x)"(NULL)left$asc":[141]20800:[137]37000
  748. 38000 [139]ja[179]2013[167][142]
  749. 38010 [129]pp[178](zz[170]1)[164]10:[139]pp[177]10[167][142]
  750. 38020 y[178][181](10[172][187](1))[170]1
  751. 38021 [139]y[179]10[173]([194](1710)[170]1)[167][130]pp:[137]38080
  752. 38035 [139][194](1699[170]pp)[178]0[167]38038
  753. 38036 [139]pp[179]10[167][130]pp
  754. 38037 [142]
  755. 38038 s[178]0
  756. 38040 y[178][181](10[172][187](1))[170]1:s[178]s[170]0.2:f[178][194](1309[170]y)[170][194](1299[170]y)[170][194](1319[170]y)
  757. 38041 e[178][194](1299[170]pp)[170][194](1309[170]pp)[170][194](1319[170]pp):[139]e[170]([194](1710[172]5))[179]f[175]pp[179]10[167][130]:[142]
  758. 38044 [139]s[178]5[175]pp[179]10[167][130]pp
  759. 38045 [139]s[177]5[175]pp[178]10[167]38080
  760. 38050 [139]y[178]pp[167]38040
  761. 38051 [139]pp[179]5[175]y[179]5[167]38040
  762. 38055 [139][194](1299[170]y)[170][194](1309[170]y)[170][194](1319[170]y)[177]0[167]38059
  763. 38056 [137]38040
  764. 38059 [153]"loadvals k^mpft: ";ln$(pp)" gegen ";ln$(y):[151]1800,i:i[178]pp:rr[178]1:[141]19676
  765. 38070 [139]pp[179]10[167][130]pp
  766. 38080 i[178][194](1800):[142]
  767. 40000 [153]"valnde des (NULL)rieges !":[141]20800
  768. 40002 [153]"load";ln$(a)" hat leider keine (NULL)ruppen"
  769. 40010 [153]"mehr und muss sich ergeben.str$ie":x[178]lb(a)[173]4:x[178][181](x[173]4)[170]1959
  770. 40011 [139]x[177]lb(a)[167]x[178]lb(a)
  771. 40015 lb(b)[178]lb(b)[170]x:gl(b)[178]gl(b)[170]x:[151](1699[170]a),1
  772. 40020 [153]"left$auptstadt wurde zerst\rt"
  773. 40021 [153]"und ";ln$(b)
  774. 40022 [153]"bekam";x"(NULL)left$asc (NULL)and.":[141]47000
  775. 40030 [151](1699[170]a),1:[139]bb[178]1[167]bb[178]0:[141]20800:[137]2498
  776. 40031 [137]20800
  777. 41000 [153]"loadpeekitte warten !"
  778. 41003 [129]x[178](zz[170]1)[164]10:[139][194](1699[170]x)[178]1[167][130]x
  779. 41006 a[178][194](1299[170]x):b[178][194](1309[170]x):c[178][194](1319[170]x)
  780. 41022 y[178]5[172][187](1)[170]4:a[178]a[170]y:[139][194](1299[170]x)[170]a[179]255[167][151](1299[170]x),a:[137]41027
  781. 41024 [151](1299[170]x),255
  782. 41027 y[178]5[172][187](1)[170]3:b[178]b[170]y:[139][194](1309[170]x)[170]b[179]255[167][151](1309[170]x),b:[137]41032
  783. 41029 [151](1309[170]x),255
  784. 41032 y[178]9[172][187](1)[170]6:c[178]c[170]y:[139][194](1319[170]x)[170]c[179]255[167][151](1319[170]x),c:[137]41040
  785. 41033 [151](1319[170]x),255
  786. 41040 u[178][194](1299[170]x)[172]1.5:v[178][194](1309[170]x)[172]2:w[178][194](1319[170]x)[172]1:u[178]u[170]v[170]w
  787. 41050 [139][194](1399[170]x)[170]u[177]100[167][151](1399[170]x),100:[137]41060
  788. 41051 [151](1399[170]x),u
  789. 41060 [141]50200
  790. 41061 [141]51000
  791. 41070 [139]x[179]10[167][130]x:[142]
  792. 41075 [142]
  793. 42000 [139][194](1163[170]i)[178]1[167][141]20060:[137]19299
  794. 42001 [139][194](1091[170]i)[177]0[167][137]42005
  795. 42002 [153]"valrst (NULL)onderkommando kaufenwait":[141]20800:[137]19299
  796. 42005 [141]19000:[153][166]14)"(NULL)atnpeek(NULL)(NULL)atnchr$val"
  797. 42007 sp[178]52705:a[178]11:[151]sp,62:jmp[178]1:b[178]400
  798. 42008 [153]"right$n welchem (NULL)and wollen sie eine ":[153]"(NULL)aserne sabotieren ?"
  799. 42010 [153]"":[129]x[178]1[164]10:[153]"";ln$(x):[130]x:[153]"(NULL)enfre":[141]20100
  800. 42011 [139]jmp[178]11[167]19299
  801. 42015 [139][194](1379[170]jmp)[178]0[167]42005
  802. 42016 [139][194](1699[170]jmp)[178]1[167]42005
  803. 42020 [141]19000:y[178][194](1087[170]i)[170][194](1155[170]i):x[178]y[170][194](1399[170]jm)
  804. 42021 [151](1163[170]i),1:[139]x[178]y[167]y[178]y[171]1
  805. 42040 w[178]x[170]y:z[178][181](w[172][187](1))[170]1:[139]z[179]x[176]z[178]x[167]42100
  806. 42055 [153]"str$er atnnschlag ist gelungen.str$ie"
  807. 42060 [153]"(NULL)aserne und die dazugeh\rigen"
  808. 42065 [153]"(NULL)affen sind zerst\rt.str$ie (NULL)osten ffrer"
  809. 42070 x[178][181](4200[172][187](1))[170]3000:[153]"diesen atnnschlag betragen";x"left$asc."
  810. 42080 g(i)[178]g(i)[171]x:[141]20800:[137]42200
  811. 42100 [153]"str$er atnnschlag ist misslungen.right$hr"
  812. 42110 [153]"(NULL)onderkommando wurde erschossen.str$ie"
  813. 42120 [153]"(NULL)osten ffrer die verloren gegangene"
  814. 42130 x[178][181](4200[172][187](1))[170]1500:[153]"atnusrfrestung betr^gt";x"left$asc.":g(i)[178]g(i)[171]x
  815. 42140 [151](1091[170]i),[194](1091[170]i)[171]1
  816. 42143 [139][194](1155[170]i)[171]2[179]1[167][151](1155[170]i),0:[137]42150
  817. 42145 [151](1155[170]i),[194](1155[170]i)[171]2
  818. 42150 [141]20800:[137]19299
  819. 42200 [129]x[178]1[164]3:[139][194](1299[170]jmp)[171]3[179]0[167][151](1299[170]jmp),0:[137]42230
  820. 42220 [151](1299[170]jmp),[194](1299[170]jmp)[171]3
  821. 42230 jmp[178]jmp[170]10:[130]:y[178]jmp:[141]36000:[137]19299
  822. 42500 [153]"(NULL)ieviel (NULL)tfreck ";:[133]x
  823. 42501 [139]gl(i)[171]x[172]30[179]0[176][194](1379[170]i)[170]x[177]255[176]x[178]0[167][142]
  824. 42502 g(i)[178]g(i)[171]x[172]500:[151](1379[170]i),[194](1379[170]i)[170]x:a(i)[178]a(i)[170]x[172]30:eb(i)[178]eb(i)[170]x[172]50
  825. 42503 gl(i)[178]gl(i)[171]x[172]30:bl(i)[178]bl(i)[170]x[172]30:[137]20050
  826. 43000 [139][194](1379[170]i)[178]0[167][142]
  827. 43002 x[178][181](10[172][187](1))[170]1:[139]x[179](zz[170]1)[167]43002
  828. 43003 [139][194](1699[170]x)[178]1[167][142]
  829. 43005 q[178][194](1399[170]x)[170][194](1151[170]i):y[178][181](q[172][187](1))[170]1
  830. 43006 [141]19000:[153]"";ln$(x)" verfrebte auf eine right$hrer"
  831. 43007 [153]"(NULL)asernen einen atnnschlag.":[139]y[177][194](1399[170]x)[167]43050
  832. 43020 [153]"str$er atnnschlag gelang und sie verloren":[153]"eine (NULL)aserne."
  833. 43035 x[178]1299:[129]y[178]1[164]3:[139][194](x[170]i)[171]3[179]0[167][151](x[170]i),0:x[178]x[170]10:[130]:[137]43048
  834. 43041 [151](x[170]i),[194](x[170]i)[171]3:x[178]x[170]10:[130]
  835. 43048 [151](1379[170]i),[194](1379[170]i)[171]1:bl(i)[178]bl(i)[171]30:gl(i)[178]gl(i)[170]30:eb(i)[178]eb(i)[171]50
  836. 43049 a(i)[178]a(i)[171]30:[137]20800
  837. 43050 [153]"str$er atnnschlag misslang jedoch.":[137]20800
  838. 44000 x[178][181](ew(i)[173]80):y[178][181](100[172][187](1))[170]1:x[178](x[170]y)[170](100[171][194](1043[170]i))
  839. 44005 ew(i)[178]ew(i)[171]x:[141]19000:[153]"str$ieses mid$ahr starben";x"(NULL)enschen und"
  840. 44010 x[178][181](4[172][187](1))[170]7:y[178][181](400[172][187](i)):x[178](x[172][194](1039[170]i))[170]y:ew(i)[178]ew(i)[170]x
  841. 44015 [153]"es wurden";x"(NULL)inder geboren.":gb(i)[178][181](ew(i)[173]2):[142]
  842. 45000 [153]"(NULL)ollen sie dieses mid$ahr (NULL)andwirtschaft"
  843. 45005 [153]"betreiben (l) oder von right$hren":[153]"(NULL)orr^ten leben (v) ?"
  844. 45007 [161]a$:[139]a$[178]""[167]45007
  845. 45008 [139]a$[178]"l"[167]21751
  846. 45009 [139]a$[178]"v"[167]xx[178]512:[137]21843
  847. 45010 [137]45007
  848. 46000 [139]pi(i)[179]lh(i)[176]pi(i)[178]lh(i)[167]x[178]pi(i):[142]
  849. 46001 x[178]lh(i):z[178]1:[142]
  850. 46002 [153]"str$a sie zu wenig (NULL)agerplatz":x[178]pi(i)[171]lh(i):z[178]0
  851. 46005 [153]"ffrer ihre right$left$asc hatten,verrotteten":[153]"";x"right$left$asc.":[142]
  852. 47000 [153]"str$urch (NULL)lfrenderungen bekam ";ln$(b):x[178][181](9000[172][187](1))[170]4000
  853. 47005 [153]"";x"left$asc.":g(b)[178]g(b)[170]x:[139]a[179](zz[170]1)[167]g(i)[178]g(i)[171]x
  854. 47006 [142]
  855. 47500 x[178][181]([194](1399[170]i)[173]3):[151](1399[170]i),[194](1399[170]i)[171]x:y[178][181](999[172][187](1))
  856. 47502 x[178]((100[171][194](1399[170]i))[172]127)[170]y:[129]y[178]1[164]3:x[178]x[170][194](1289[170](y[172]10[170]i))[172]44:[130]
  857. 47510 [141]19000:[153]"str$as (NULL)ilit^r verlangt";x"left$asc,um"
  858. 47515 [153]"ihr (NULL)ilit^r gut ausbilden zu k\nnen.":[141]20500
  859. 47520 w[178][181](b[173]127):[139][194](1399[170]i)[170]w[177]100[167][151](1399[170]i),100:[137]48000
  860. 47530 [151](1399[170]i),[194](1399[170]i)[170]w
  861. 48000 x[178][181]([194](1155[170]i)[173]3):[151](1155[170]i),[194](1155[170]i)[171]x:y[178][181](999[172][187](1))
  862. 48002 x[178]((100[171][194](1155[170]i))[172]96)[170]y
  863. 48004 [141]19000:[153]"str$er (NULL)olizeipr^sident verlangt"
  864. 48005 [153]"";x"left$asc von right$hnen,um veraltete atnus-"
  865. 48007 [153]"rfrestung zu modernisieren und neue"
  866. 48009 [153]"kaufen zu k\nnen.":[141]20500
  867. 48012 w[178][181](b[173]96):[139][194](1155[170]i)[170]w[177]100[167][151](1155[170]i),100:[137]48500
  868. 48015 [151](1155[170]i),[194](1155[170]i)[170]w
  869. 48500 x[178][181]([194](1087[170]i)[173]4):[151](1087[170]i),[194](1087[170]i)[171]x:y[178][181](999[172][187](1))
  870. 48503 x[178]((100[171][194](1087[170]i))[172]122)[170](y[170](po(i)[172]2)[170][194](1091[170]i)[172]300)
  871. 48506 [141]19000:[153]"vals werden";x"left$asc ben\tigt,um die"
  872. 48509 [153]"(NULL)olizei auszubilden.":[141]20500
  873. 48512 w[178][181](b[173]122):[139][194](1087[170]i)[170]b[177]100[167][151](1087[170]i),100:[137]22600
  874. 48515 [151](1087[170]i),[194](1087[170]i)[170]b:[137]22600
  875. 49000 [139]jm[178]2[176]jm[178]4[176]jm[178]6[167]20291
  876. 49001 [153]"loadright$hr (NULL)olk l^sst aus atnngst vor einer"
  877. 49005 [153]"(NULL)ouristenschwemme den peekau weiterer"
  878. 49010 [153]"(NULL)ouristenanlagen nicht zu !":[137]20800
  879. 49500 [141]19000:[153]"str$a sie zu wenig (NULL)frehlen hatten,":yy[178]1
  880. 49502 [153]"konnte nicht genfregend (NULL)orn ffrer right$hr"
  881. 49504 [153]"(NULL)olk gemahlen werden.vals verhungerten":x[178]gb(i)[171]gk(i):ew(i)[178]ew(i)[171]x
  882. 49506 [153]"insgesamt";x"(NULL)enschen.str$as (NULL)olk ist":[153]"sehr ver^rgert."
  883. 49508 x[178]x[173]20:[139][194](1039[170]i)[171]x[179]1[167][151](1039[170]i),0:[137]20800
  884. 49512 [151](1039[170]i),[194](1039[170]i)[171]x:[137]20800
  885. 50000 [153]"load(NULL)it wieviel chr$eld wollen (NULL)ie"
  886. 50001 a[178]0:[153]"starten (maximal 50000 left$asc)";[166]54);:[133]a
  887. 50002 [139]a[179][178]0[176]a[177]50000[167]50000
  888. 50003 [129]x[178]1[164]zz:g(x)[178]a:[130]:[142]
  889. 50100 x[178]0:[153]"load(NULL)elche (NULL)chwierigkeitsstufe m\chten"
  890. 50101 [153]"(NULL)ie spielen (1-5)";[166]63);:[133]x:[139]x[179]1[176]x[177]5[167]50100
  891. 50102 [151]1710,x:[137]60000
  892. 50200 y[178][194](1710)
  893. 50202 [139][194](1299[170]x)[170]y[177]250[167][151](1299[170]x),250:[137]50204
  894. 50203 [151](1299[170]x),[194](1299[170]x)[170]y
  895. 50204 [139][194](1319[170]x)[170]y[177]250[167][151](1319[170]x),250:[137]50206
  896. 50205 [151](1319[170]x),[194](1319[170]x)[170]y
  897. 50206 [139][194](1309[170]x)[170]y[177]250[167][151](1309[170]x),250:[137]50208
  898. 50207 [151](1309[170]x),[194](1309[170]x)[170]y
  899. 50208 [142]
  900. 50500 [141]19000:[153]"(NULL)olen (NULL)ie wirklich zur atnuswertung ?"
  901. 50502 [153]"(NULL)enn ja,dann bitte 'space' drfrecken,an-":[153]"sonsten bitte 'x'"
  902. 50504 [161]a$:[139]a$[178]""[167]50504
  903. 50506 [139]a$[178]"x"[167]500
  904. 50507 [142]
  905. 50700 a[178]0:[153]"(NULL)ieviel (NULL)olizisten entlassen ";:[133]a
  906. 50701 [139]a[177]po(i)[176]a[179]0[167][153]"ononon":[137]50700
  907. 50702 a[178]([181](a)):po(i)[178]po(i)[171]a:a(i)[178]a(i)[171]a[172]10:[142]
  908. 50760 [153]"str$as (NULL)olk ist sehr ver^rgert freber":[142]
  909. 51000 [151](1379[170]x),[194](1379[170]x)[170]5:[139][194](1379[170]x)[177]85[167][151](1379[170]x),85
  910. 51001 [142]
  911. 51300 [153]"peekietet nichts an !";:[141]20800
  912. 51301 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd                   ononononon":[142]
  913. 52000 x[178][181](50[172][187](1))[170]34:[142]
  914. 60000 [153]"load(NULL)ieviel mid$ahre wollen (NULL)ie spie-":[153]"len (max. 30) ";:[133]x
  915. 60001 [139]x[179]5[176]x[177]30[167]60000
  916. 60002 [151]1711,x:[142]
  917.